Table 1
Visual Basic Code Samples

'INITIALIZE THE GPIB CONTROLLER AND CLEAR GPIB
OutStr = "@@" + vbCr + vbLf: MSComm1.Output = OutStr	'clear Micro488
Call Tdelay(1.0)     'wait for Micro488 to finish
OutStr = "clear" + Chr$(13): MSComm1.Output = OutStr 	'clear all GPIB devices

'INITIALIZE THE MARCONI SG (GPIB ADR 04)
OutStr = "remote04" + Chr$(13): MSComm1.Output = OutStr 'remote the Marconi
AmpStr = Text9.Text   'get SG ampl data for Marconi from txtbox
OutStr = "output04; LV" + AmpStr + "VL" + Chr$(10): MSComm1.Output = OutStr
FreqStr = Format(Text2.Text, "00.000E+00")   'get SG freq data from txtbox
FreqMarconiStr = Str(Val(FreqStr) * 0.000001)
OutStr = "output04; CF" + FreqMarconiStr + "MZ" + Chr$(10): MSComm1.Output = OutStr 

'INITIALIZE THE TEK SCOPE (GPIB ADR 14)
OutStr = "output14;acquire:stopafter sequence" + Chr$(10): MSComm1.Output = OutStr 
OutStr = "output14;data:source ch1,ch2" + Chr$(10): MSComm1.Output = OutStr
OutStr = "output14;data:encdg rib" + Chr$(10): MSComm1.Output = OutStr  use binary
OutStr = "output14;data:width 1" + Chr$(10): MSComm1.Output = OutStr
OutStr = "output14;data:start 1" + Chr$(10): MSComm1.Output = OutStr
OutStr = "output14;data:stop 1000" + Chr$(10): MSComm1.Output = OutStr ' 1000 pts 

'SCOPE CAPTURE SUB
OutStr = "output14;*wai" + Chr$(10): MSComm1.Output = OutStr 'wait for scope rdy
OutStr = "output14;acquire:state run" + Chr$(10): MSComm1.Output = OutStr 

'SCOPE DATA TRANSFER SUB
OutStr = "output14;*wai" + Chr$(10): MSComm1.Output = OutStr 'wait for scope rdy
OutStr = "output14;curve?" + Chr$(10): MSComm1.Output = OutStr  'transfer data
OutStr = "enter14; EOI" + Chr$(10): MSComm1.Output = OutStr  'scope generates EOI
TekWFM = True   'modify MScomm for TEK WF capture binary
Call cmdRead_Click      'result in Tektemp variant

'SINE CORRELATION CH1
temp = Val(Combo1.Text)    'get TEK Sampling Rate
 c = 2 * pi * Val(FreqStr) / (temp)
TekCh1(0) = TekCh1(0) * 0.1   'smooth leading edge	'slightly window the data
TekCh1(1) = TekCh1(1) * 0.5   'smooth leading edge
TekCh1(998) = TekCh1(998) * 0.5  'smooth trailing edge
TekCh1(999) = TekCh1(999) * 0.1  'smooth trailing edge
 va.r = 0: va.i = 0
 For k = 0 To 999	'do the correlation for va
    va.r = va.r + TekCh1(k) * Cos(c * k)
    va.i = va.i - TekCh1(k) * Sin(c * k)
 Next k

